home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 1: Comms & Networking / Almathera Ten on Ten - Disc 1: Comms & Networking.iso / amiga-useful / perl / t / comp / cpp.t < prev    next >
Text File  |  1995-05-04  |  925b  |  52 lines
  1. #!./perl -P
  2.  
  3. # $RCSfile: cpp.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:42:08 $
  4.  
  5. open(CONFIG,"../config.sh") || die;
  6. while (<CONFIG>) {
  7.     if (/^cppstdin/) {
  8.     if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
  9.         print "1..0\n";
  10.         exit;         # Can't test till after install, alas.
  11.     }
  12.     last;
  13.     }
  14. }
  15. close CONFIG;
  16.  
  17. print "1..3\n";
  18.  
  19. #this is a comment
  20. #define MESS "ok 1\n"
  21. print MESS;
  22.  
  23. #If you capitalize, it's a comment.
  24. #ifdef MESS
  25.     print "ok 2\n";
  26. #else
  27.     print "not ok 2\n";
  28. #endif
  29.  
  30. open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  31.  
  32. ($prog = <<'END') =~ s/X//g;
  33. X$ok = "not ok 3\n";
  34. X#include "Comp.cpp.inc"
  35. X#ifdef OK
  36. X$ok = OK;
  37. X#endif
  38. Xprint $ok;
  39. END
  40. print TRY $prog;
  41. close TRY;
  42.  
  43. open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  44. print TRY '#define OK "ok 3\n"' . "\n";
  45. close TRY;
  46.  
  47. $pwd=`pwd`;
  48. $pwd =~ s/\n//;
  49. $x = `./perl -P Comp.cpp.tmp`;
  50. print $x;
  51. unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  52.